* Encoding: windows-1252.

Scales for PEA Survey

do repeat j=b002,b004,b006,b010 to b013,b028,b042,b055,
 b059,b066,b084,b087,b097,b100,b106,b112,b113,b115,b127,
 b130,b132,b157,b160,b058,b077,b083,b070,b118,
 b051
compute j=6-j
end repeat

compute bpi=sum(b023,b027,b032,b035,b040,b043,b044,b047,b052,
 b053,b060,b065,b068,b074,b075,b078,b085,b088,b089,b092,b094,b095,
 b098,b103,b107,b110,b114,b117,b119,b123,b126,b129,b131,b136,b137,
 b138,b140,b145,b148,b149,b151,b155,b159,b163,b170,b171,b172)
compute bpi1=mean(B098,B136,B138,B088,B103,B060,B123,B085,B114,B163
 ,B053,B155,B027)
compute bpi2=mean(B129,B117,B023,B040,B145,B052,b065,B110,b172,B044,
 B078,B075,b043,b151,b119)
compute bpi3=mean(B159,B149,B170,B171,B074)
compute bpi4=mean(B107,b032,b092,b035,b095,b068,b047,b137)
compute id_diff=mean(B098,b155,b117,b123,b136,b114,b103)
compute prim_def=mean(b023,b171,b129,b027,b078,b040,b151,b110)
compute imp_real=mean(b088,b138,b085,b060)
compute fear_fus=mean(b074,b172,b065,b075,b170,b149,b159,b140)

compute tas1=sum(b102,b022,b030,b061,b086,b111,b167,b057,b173)
compute tas2=sum(b118,b083,b036,b058,b154,b049,b077,b091,b070)
compute tas=sum(b022,b030,b036,b049,b057,b058,b061,b070,b077,
  b083,b086,b091,b096,b102,b111,b118,b125,b154,b167,b173)


compute ceq=sum(b009,b017 to b021,b025,b045,b082,b143,b153,b156,
  b158,b175 to b178)
compute ceq1=mean(b156,b158,b153,b045,b082)
compute ceq2=mean(b143,b176,b178,b175,b177,b025)

compute soma=sum(b029,b031,b034,b038,b050,b062,b073,b081,b093,b104,
  b109,b133,b144,b150,b161,b165,b174)
compute soma1=mean(b174,b109,b133,b165,b150,b161,b104,b073)
compute soma2=mean(b029,b038,b062,b081,b093,b144)
compute soma3=mean(b031,b034)

compute lsrp=sum(b037,b041,b055,b064,b090,b099,b100,b105,b108,
  b112,b115,b120,b121,b127,b141,b146,b147,b152,b157,
  b162,b164,b166,b168,b169)
compute lsrp1=mean(B164,B162,b166,B168,b108,B121,b141,B105,
 b169,B147,B146,B127,B115,B157,B112,B055)
compute lsrp2=mean(b041,b064,b090,b099,b037,b120,b152,b100,b160)

compute hypocon=hlth01
compute hypocon1=hlth02
compute hypocon2=hlth03

compute magical=mean(belief01 to belief05,belief07 to belief10,
  belief12 to belief30)
compute magical1=mean(belief22,belief17,belief13,belief21,belief30,
  belief10,belief07,belief20,belief25,belief05,
  belief15,belief19,belief01,belief29)
compute magical2=mean(belief24,belief04,belief28,belief14,belief08,
  belief03,belief27,belief09,belief26,belief16,
  belief18,belief02,belief12)

compute gamblng=mean(gambl01 to gambl08,gambl10 to gambl12)
compute gamblng1=mean(gambl05,gambl11,gambl07,gambl06,gambl08,
  gambl12)
compute gamblng2=mean(gambl09,gambl03,gambl04,gambl01,gambl02)

heterosx to nonsexul are each value of pers101
sexdrive=pers102

compute bpi=sum(b023,b027,b032,b035,b040,b043,b044,b047,b052,
 b053,b060,b065,b068,b074,b075,b078,b085,b088,b089,b092,b094,b095,
 b098,b103,b107,b110,b114,b117,b119,b123,b126,b129,b131,b136,b137,
 b138,b140,b145,b148,b149,b151,b155,b159,b163,b170,b171,b172)

compute kb_pe=sum(b004,b005,b007,b048,b079,b084,b132,b139)
compute kb_ne=sum(b003,b010,b012,b014,b028,b054,b066,b080,b101,b130)
compute kb_aoe=sum(b033,b087,b116,b134,b142)
compute kb_edm=sum(b006,b015,b026,b069,b097,b113,b124)
compute kb_rj=sum(b001,b002,b004,b011,b013,b016,b042,b063,b071,b072)







